#! /usr/bin/perl

use strict;
use warnings;
use Encode;

my %names = (
		"fred" => 'flintstone',
		'barney' => 'rubble',
		'wilma' => 'fintsone',
);

print "Please input your given name: ";
chomp(my $given_name = <STDIN>);
print "Family name of $given_name is $names{$given_name}.\n";
